﻿Namespace Sigortali.Issizlik
	Module Functions

		Function MuracaatRaporu(ByVal Process As Token, ByVal sno As String) As Recordset
			Q("select a.repsube,a.dosyano,a.murtar,a.isyerino,b.isyeriadi,a.pogs,a.onay,a.odememe")
			Q("from ssd.dbo.siszgenel a left join ssd.dbo.isyerigenel b on a.isyerino = b.isyerino")
			Q("where a.sno = :sno order by a.dosyano")
			Return Process.OpenSQL("*", sno)
		End Function

		Function OdemeRaporu(ByVal Process As Token, ByVal sno As String) As Recordset
			Q("select repsube,dosyano,fisno,vfisno,odemetar,odebastar,odesontar,odegun,odemik,fark")
			Q("from ssd.dbo.siszodeme where sno = @sno and not odemetar is null order by dosyano,odebastar")
			Return Process.OpenSQL("*", sno)
		End Function

	End Module
End Namespace
